home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac CD-ROM 59 / SVM Mac CD-ROM - No 59.iso / demo camisole / Quai.Dxr / 00843.ls < prev    next >
Encoding:
Text File  |  1999-04-06  |  471 b   |  19 lines
  1. on mouseDown
  2.   set vNumSprite to the clickOn
  3.   set vNomCast to LeNomDuSprite(vNumSprite)
  4.   if not (vNomCast contains ".bas") then
  5.     set vNumCast to the number of member (vNomCast & ".bas")
  6.     puppetSprite(vNumSprite, 1)
  7.     set the castNum of sprite vNumSprite to vNumCast
  8.     updateStage()
  9.     repeat while the mouseDown
  10.       nothing()
  11.     end repeat
  12.     puppetSprite(vNumSprite, 0)
  13.     CursReset(1)
  14.     puppetSound(0)
  15.     Curseurs()
  16.     go("retourOs")
  17.   end if
  18. end
  19.